home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / A-Monthly Disks / (c)abl.d64 / CHASE (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  8KB  |  194 lines
  1. 1 POKE691,1:GOTO100
  2. 2 SYS52440:A$=LEFT$(SP$,A1%):SYS52360:RETURN
  3. 3 SYS52300:IFA1%<0THEN5
  4. 4 A$=LEFT$(SP$,A1%):SYS52360:GOSUB46:O$=A$:RETURN
  5. 5 GOTO41
  6. 6 SYS52340:RETURN
  7. 7 PRINT"[151]";:GOSUB14:SYS52310:RETURN
  8. 14 IFLL=1OR(PEEK(56577)AND16)=THTHENRETURN
  9. 15 GOTO37
  10. 16 POKE659,6+ABS((BD=1200)*2):C=1022730/BD:GOSUB29:POKE51968,A2%:POKE51969,A1%
  11. 17 IFBD=1200THENC=1022730/BD*.966:GOSUB29
  12. 18 POKE665,A2%:POKE666,A1%:C=1022730/BD/2-100:GOSUB29:POKE661,A2%:POKE662,A1%
  13. 19 RETURN
  14. 20 B$="[164]"
  15. 21 SYS52450:B$=LEFT$(A$,ABS(A1%-1)):RETURN
  16. 22 A$="":SYS52320:IFA2%=0THENRETURN
  17. 23 IFA2%=1ORA2%=3ORA2%=16ORA2%=9THENA$="[193]":RETURN
  18. 24 IFA2%<>83ANDA2%<>19THENRETURN
  19. 25 FORKK=1TO2E3:SYS52320:IFA2%=0THEN28
  20. 26 IFA2%=17ORA2%=67THENKK=2E3
  21. 27 IFA2%=65ORA2%=13THENA$="[193]":KK=2E3
  22. 28 NEXTKK:RETURN
  23. 29 A1%=C/256:A2%=C-A1%*256:RETURN
  24. 30 GOSUB7:IFIT$=""THENGOSUB3:IT$=A$:GOSUB33:RETURN
  25. 31 GOSUB33:IFPEEK(679)<>1THENGOSUB7:O$=A$:A$="":GOSUB7:A$=O$
  26. 32 RETURN
  27. 33 A$=IT$:B$=":":GOSUB21:IFA1%=0THENIT$="":RETURN
  28. 34 IT$=MID$(A$,A1%+1):A$=B$:RETURN
  29. 35 A$=LEFT$(RK$,30):GOSUB20:N$=B$:SC=ASC(MID$(RK$,37,1)):CW=ASC(MID$(RK$,41,1))
  30. 36 TD$=MID$(RK$,48,2):TU$=MID$(RK$,50,2):A$="   ":SYS52330:A$=A$+"       "
  31. 37 SYS52330:DW$=A$:NA$=N$:FORK=LEN(N$)TO20:NA$=NA$+" ":NEXTK
  32. 38 AM$=" [193][205]":PM$=" [208][205]":TM$="12:00":FL$="[198][213][204][204]":MG=20000:AT=0:Z=0:SA$="[207]K.":DT=0
  33. 39 DN$=AM$:PK=20:FK=6:CM=5:EM=0:SM=0:RETURN
  34. 40 A$="[211]TANDBY - [210]ETURNING TO [194][194][211]...":GOSUB7
  35. 41 A$=TD$:B$=TU$:RK$=LEFT$(RK$,47)+A$+B$+MID$(RK$,52)
  36. 42 PRINT:PRINT"[145][145][145][145]SYS52470:REM[145][145][145]"
  37. 43 SYS52410:A$=RK$:A1%=-1:SYS52420:A$=STR$(BD)+"     "+STR$(LL):A1%=-1:SYS52420
  38. 44 A$=STR$(TH):A1%=-1:SYS52420:A$=IT$:A1%=-1:SYS52420:A$=""
  39. 45 POKE631,13:POKE198,1:CLOSE5:END
  40. 46 IFA2%<1THENRETURN
  41. 47 B$=A$:RETURN
  42. 48 CT=VAL(MID$(TI$,3,2))+VAL(LEFT$(TI$,2))*60:TA=SC*10+10:RETURN
  43. 50 GOSUB22:IFA$="[193]"THENRETURN:REM  READ FILE ROUTINE
  44. 51 A$="":GOSUB7
  45. 52 POKE684,0:OPEN4,8,4,"0:"+F$+",S,R":GET#4,C$
  46. 53 FF%=0:IFST<>0THENFF%=1:CLOSE4:OPEN4,8,4,"$":GOTO56
  47. 54 A$=LEFT$(SP$,CW):SYS52380:A$=C$+LEFT$(A$,A1%):C$="":IFA2%<1THENC$=""
  48. 55 A3%=A2%:GOSUB7:GOSUB22:IFA$<>"[193]"ANDA3%<1THEN54
  49. 56 POKE684,0:AB%=-(A$="[193]"):CLOSE4:A$="":GOSUB7:RETURN
  50. 60 OPEN1,8,15:OPEN2,8,2,"/SSC.HIGH":SP$="":FORK=1TO40:SP$=SP$+" ":NEXTK:K=0
  51. 61 K=K+1:A1%=K/256:A2%=K-A1%*256:PRINT#1,"P"+CHR$(98)+CHR$(A2%)+CHR$(A1%);
  52. 62 A$=SP$:SYS52390:RETURN
  53. 63 CLOSE2:CLOSE1:RETURN
  54. 70 GOSUB98:A$="[201]T IS NOW "+TM$+DN$+".":GOSUB7
  55. 71 TQ=INT(RND(1)*500)+(500*A):A$="[212]ODAY YOU HAVE TRAVELLED"+STR$(TQ)+"KM."
  56. 72 GOSUB7:AT=AT+TQ:IFAT>20000THENAT=20000
  57. 73 A$="[212]OTAL DISTANCE TRAVELLED:"+STR$(AT)+"KM.":GOSUB7:MG=20000-AT
  58. 74 IFMG<0THENMG=0:GOTO86
  59. 75 A$="[217]OU'RE STILL"+STR$(MG)+"KM FROM HOME.":GOSUB7
  60. 76 PK=INT(RND(1)*(20*A)):A$="[212]HE [208]IRATES ARE"+STR$(PK)+"KM BEHIND.":GOSUB7
  61. 77 FK=FK-A:IFFK>4THENFL$="[198][213][204][204]"
  62. 78 IFFK=4ORFK=3THENFL$="[200]ALF [198]ULL"
  63. 79 IFFK=2ORFK=1THENFL$="[209]UARTER [198]ULL"
  64. 80 IFFK=0THENFL$="[197]MPTY":FK=-1
  65. 81 A$="[217]OUR FUEL TANK IS "+FL$:GOSUB7:SA$="[196]ANGER!":IFCM<>6THENSA$="[207]K."
  66. 82 A$="[197]NGINE [211]TATUS: "+SA$:GOSUB7:IFEM=4THENA$="[211]TOP AND EAT!":GOSUB7
  67. 83 IFSM=6THENA$="[211]TOP AND SLEEP!":GOSUB7
  68. 84 IFZ=0THENZ=1:GOTO86
  69. 85 IFZ=1THENZ=0
  70. 86 RETURN
  71. 98 DN$=AM$:IFZ=1THENDN$=PM$
  72. 99 RETURN
  73. 100 OPEN5,2,0:A1%=1:A2%=1:FORK=1TO127:SP$=SP$+" ":NEXTK:A$="":ZE$=CHR$(0)
  74. 101 A1%=0:GOSUB2:RK$=A$:POKE680,70:A1%=1:GOSUB2:BD=VAL(LEFT$(A$,5))
  75. 102 LL=VAL(MID$(A$,6)):A1%=2:GOSUB2:TH=VAL(A$):A1%=3:GOSUB2:IT$=A$:GOSUB16:GOSUB35
  76. 103 A$="       [211][208][207][207][203][217] [211][208][193][195][197] [195][200][193][211][197] ([214]1.0)":GOSUB7
  77. 104 A$="           ([195])1989 [205]IKE [203]ERR":GOSUB7:F$="[211][211][195][201][206][212][210][207]":GOSUB50
  78. 105 GOSUB48:IFCT>TATHEN40
  79. 106 A$="[195][200][193][211][197]: ":GOSUB30:GOSUB6:IFA$="[194][194][211]"THEN40
  80. 107 IFA$="?"ORA$="[200][197][204][208]"ORA$="[200]"THENF$="[211][211][195][200][197][204][208]":GOSUB50:GOTO105
  81. 108 IFA$="[208][204][193][217]"THEN120
  82. 109 IFA$="[214]"THENA$="[211]POOKY [211]PACE [195]HASE [214]1.0 - [196]EC.29,1989":GOSUB7:GOTO105
  83. 115 A$="? FOR HELP.":GOSUB7:GOTO105
  84. 120 A$="[193]RRRR...[193]NOTHER VICTIM, MATEYS...":GOSUB7:GOSUB38
  85. 130 A$="[205]AIN [195]HASE [205]ENU---------------":GOSUB7
  86. 131 A$="1. [211]LOW [211]PEED":GOSUB7:A$="2. [205]ODERATE [211]PEED":GOSUB7
  87. 132 A$="3. [198]ULL [211]PEED":GOSUB7:A$="4. [211]TOP FOR [204]UNCH":GOSUB7
  88. 133 A$="5. [211]LEEP":GOSUB7:A$="6. [204]ET [197]NGINE [195]OOL":GOSUB7:A$="7. [211]TATS":GOSUB7
  89. 134 A$="8. [198]UEL-UP":GOSUB7:A$="9. [209]UIT":GOSUB7:IFPK=0THENGOSUB139:GOTO900
  90. 135 GOSUB48:IFCT>TATHEN40
  91. 136 A$="[207]PTION #[1-9]: ":GOSUB30:A=VAL(A$):IFA$=""ORA$="?"ORA<1ORA>9THEN130
  92. 137 ONAGOTO170,160,150,180,185,190,195,205,215
  93. 139 A$="[217]OU DIDN'T MAKE IT HOME IN TIME!":GOSUB7:RETURN
  94. 140 A$="[217]OU BLOW YOUR ENGINE AND DRIFT...":GOSUB7:RETURN
  95. 141 A$="[217]OU STOP AND LET YOUR ENGINE COOL...":GOSUB7:RETURN
  96. 142 A$="[217]OU STOP FOR LUNCH...":GOSUB7:RETURN
  97. 143 A$="[212]HE [208]IRATES HAVE CAUGHT YOU!  [199]AME OVER!":GOSUB7:RETURN
  98. 144 A$="[217]OUR ENGINE DOESN'T NEED COOLING!":GOSUB7:RETURN
  99. 145 A$="[217]OU STARVE!  [199]AME OVER!":GOSUB7:RETURN
  100. 146 A$="[217]OU FELL ASLEEP!  [199]AME OVER!":GOSUB7:RETURN
  101. 147 A$="[217]OU RUN OUT OF GAS!  [199]AME OVER!":GOSUB7:RETURN
  102. 148 A$="[217]OU STOP AND SLEEP ON A SMALL ASTEROID.":GOSUB7:RETURN
  103. 149 A$="[212]HE [208]IRATES ARE"+STR$(PK)+"KM AWAY!":GOSUB7:RETURN
  104. 150 A$="[198]ULL SPEED AHEAD...":GOSUB7:CM=CM+1:IFCM=7THENGOSUB140:GOTO900
  105. 151 SM=SM+1:EM=EM+1:IFEM=5THENGOSUB145:GOTO900
  106. 152 IFSM=7THENGOSUB146:GOTO900
  107. 153 IFFK<0THENGOSUB147:GOTO900
  108. 154 A$="[217]OU TRAVEL AT FULL SPEED FOR 12 HOURS.":GOSUB7:GOSUB70
  109. 155 IFPK=0THENGOSUB139:GOTO900
  110. 156 IFMG=0THENGOTO1000
  111. 157 GOTO130
  112. 160 A$="[205]ODERATE SPEED AHEAD...":GOSUB7:CM=CM+1:IFCM=7THENGOSUB140:GOTO900
  113. 161 SM=SM+1:EM=EM+1:IFEM=5THENGOSUB145:GOTO900
  114. 162 IFSM=7THENGOSUB146:GOTO900
  115. 163 IFFK<0THENGOSUB147:GOTO900
  116. 164 A$="[217]OU TRAVEL FOR 12 HOURS.":GOSUB7:GOSUB70
  117. 165 IFPK=0THENGOSUB139:GOTO900
  118. 166 IFMG=0THENGOTO1000
  119. 167 GOTO130
  120. 170 A$="[211]LOW SPEED AHEAD...":GOSUB7:CM=CM+1:IFCM=7THENGOSUB140:GOTO900
  121. 171 SM=SM+1:EM=EM+1:IFEM=5THENGOSUB145:GOTO900
  122. 172 IFSM=7THENGOSUB146:GOTO900
  123. 173 IFFK<0THENGOSUB147:GOTO900
  124. 174 A$="[217]OU TRAVEL AT SLOW SPEED FOR 12 HOURS.":GOSUB7:GOSUB70
  125. 175 IFPK=0THENGOSUB139:GOTO900
  126. 176 IFMG=0THENGOTO1000
  127. 177 GOTO130
  128. 178 A$="[193] SIGN SAYS:":GOSUB7:A$="'[195]LOSED DUE TO FOOD POISONING.'":GOSUB7
  129. 179 RETURN
  130. 180 GOSUB142:IFEM<2THENGOSUB178
  131. 181 DT=INT(RND(1)*80)+1:IFDT<20THEN950
  132. 182 A$="[205][205][205][205]MMMMM...DELICIOUS!":GOSUB7:EM=0:PK=PK-5:IFPK<0THENPK=0
  133. 183 GOSUB149:IFPK=0THENGOSUB139:GOTO900
  134. 184 GOTO130
  135. 185 GOSUB148:IFSM<4THEN955
  136. 186 DT=INT(RND(1)*80)+1:IFDT<20THEN960
  137. 187 A$="[217]OU WAKE UP WELL RESTED.":GOSUB7:SM=0:PK=PK-10:IFPK<0THENPK=0
  138. 188 GOSUB149:IFPK=0THENGOSUB139:GOTO900
  139. 189 GOTO130
  140. 190 IFCM<4THENGOSUB144:GOTO130
  141. 191 GOSUB141:CM=0:PK=PK-5:GOSUB149:IFPK<0THENPK=0:GOSUB140
  142. 192 GOTO130
  143. 195 A$="[202]OURNEY [211]TATUS:---------------":GOSUB7
  144. 196 A$="[196]ISTANCE TODAY    :"+STR$(TQ)+"KM":GOSUB7
  145. 197 A$="[196]ISTANCE TRAVELLED:"+STR$(AT)+"KM":GOSUB7
  146. 198 A$="[196]ISTANCE TO GO    :"+STR$(MG)+"KM"
  147. 199 A$="[208]IRATES           :"+STR$(PK)+"KM BEHIND.":GOSUB7
  148. 200 A$="[212]IME              : "+TM$+DN$:GOSUB7
  149. 201 A$="[198]UEL TANK         : "+FL$:GOSUB7
  150. 202 A$="[197]NGINE [211]TATUS     : "+SA$+"":GOSUB7:GOTO130
  151. 205 A$="[217]OU STOP FOR FUEL...":GOSUB7:IFFK>5THEN210
  152. 206 PK=PK-5:IFPK<0THENPK=0
  153. 207 GOSUB149:FL$="[198][213][204][204]":FK=6:A$="[217]OUR FUEL TANK IS "+FL$+"":GOSUB7:GOTO130
  154. 210 A$="[193] SIGN SAYS:'[199]AS [211]TATION [195]LOSED!'":GOSUB7:GOSUB149:GOTO130
  155. 215 A$="[209]UIT THE GAME - YOU SURE [[217]/[206]]? ":GOSUB30:GOSUB6:IFA$="[217]"THEN105
  156. 216 GOTO130
  157. 900 A$="[212]HE [208]IRATES HAVE CAUGHT UP WITH YOU!    [193]FTER THEY DECIDE TO MAKE YOU"
  158. 901 GOSUB7:A$=" THEIR NEW FLAG, THEY TAKE ALL YOUR MONEY.":GOSUB7
  159. 902 A$="[199]AME OVER!":GOSUB7
  160. 903 A$="[212]RY AGAIN? ":GOSUB30:GOSUB6:IFA$<>"[217]"THEN40
  161. 904 GOTO120
  162. 950 A$="[217]OU GET FOOD POISONING FROM YOUR LUNCH  AND GO TO THE HOSPITAL.":EM=0
  163. 951 GOSUB7:A$="[217]OU WERE DELAYED A FEW HOURS...":GOSUB7:PK=PK-15:IFPK<0THENPK=0
  164. 952 GOSUB149:IFPK=0THENGOSUB139:GOTO900
  165. 953 GOTO130
  166. 955 A$="[202]UST AS YOU PARK, A MISSILE LANDS ON TOP":GOSUB7
  167. 956 A$="OF THE HOTEL FROM A NEARBY TESTING SITE.[206]O SLEEP FOR YOU!":GOSUB7
  168. 957 GOSUB149:GOTO130
  169. 960 A$="[215]HILE YOU WERE SLEEPING YOU WERE        KIDKNAPPED BY STREET-MUTANTS!"
  170. 961 GOSUB7:SM=0
  171. 962 A$="[211]UB-[205]ENU--------":GOSUB7:A$="1. [212]RY AND ESCAPE":GOSUB7
  172. 963 A$="2. [206]EGOTIATE":GOSUB7:A$="3. [211]CREAM FOR HELP":GOSUB7
  173. 964 A$="[193]CTION: ":GOSUB30:A=VAL(A$):IFA$=""ORA<1ORA>3THEN962
  174. 965 ONAGOTO970,980,990
  175. 970 A$="[217]OU TRY TO ESCAPE...":GOSUB7:DT=INT(RND(1)*100)+1:IFDT<50THEN975
  176. 971 A$="[204]UCKILY, THE MUTANTS WERE SLEEPING!":GOSUB7:GOTO130
  177. 975 A$="[215]HILE THE MUTANTS WERE SLEEPING, YOU TRY":GOSUB7
  178. 976 A$="AND ESCAPE...AND KNOCK OVER A CHAIR,    WAKING THE MUTANTS.  [206]OT"
  179. 977 A$=A$+" PLEASANT...":GOSUB7:GOSUB139:GOTO900
  180. 980 A$="[217]OU TRY TO NEGOTIATE YOUR RELEASE...":GOSUB7:DT=INT(RND(1)*100)+1
  181. 981 IFDT<50THEN985
  182. 982 A$="[217]OU CONVINCE THEM TO LEAVE YOU ALONE BY GIVING THEM SOME TRINKETS YOU"
  183. 983 A$=A$+" BROUGHT   ALONG.":GOSUB7:GOTO130
  184. 985 A$="[212]HEY TELL YOU TO SHUT UP.  [217]OU CONTINUE TO PLEAD UNTIL A MUTANT THROWS"
  185. 986 A$=A$+" YOU OUT  A 1000TH STOREY WINDOW.":GOSUB7:GOSUB139:GOTO900
  186. 990 A$="[217]OU SCREAM FOR HELP...":GOSUB7:DT=INT(RND(1)*100)+1:IFDT<50THEN995
  187. 991 A$="[212]HE [208]OLICE HEAR YOU AND RESCUE YOU.":GOSUB7:GOTO130
  188. 995 A$="[194]EFORE YOU CAN UTTER A SOUND, YOUR MOUTHIS CLAMPED BY A KNARLY HAND."
  189. 996 GOSUB7:A$="[193]FTER A FEW WHISPERS, YOU FEEL A COLD   BLADE ON YOUR THROAT."
  190. 997 GOSUB7:GOSUB139:GOTO900
  191. 1000 A$="[195][207][206][199][210][193][212][213][204][193][212][201][207][206][211]!!":GOSUB7
  192. 1001 A$="[217]OU HAVE MANAGED TO AVOID THE [208]IRATES   ALL THE WAY HOME! [217]OU WIN!"
  193. 1002 GOSUB7:GOTO903
  194.